PROGRAM depot;

USES Types,Comptes;


Procedure depot (ID_Compte : INTEGER;  VAR tabcompte : TTabCompte);						// Définition du nom de notre procédure ainsi que ses paramètres en entrée-sortie
 
Var
	montant: INTEGER;
	i: INTEGER;
	
BEGIN 	    
		i :=indiceCompte(ID_Compte,tabcompte) ; 											//Fait appel à la fonction indiceCompte afin de connaître l'emplacement dans la collectionCompte
		montant:= tabcompte.compteclient[i].solde;											//On charge le solde de notre compte
		WRITE('Entrer le montant deposer');
		READLN(montant);
		tabcompte.compteclient[i].solde:= tabcompte.compteclient[i].solde + montant;
		WRITE('Solde :',tabcompte.compteclient[i].solde);									//Modification et affichage du solde
END;

BEGIN

END.
